﻿Imports Microsoft.VisualBasic

Public Class clsAmlo1Data

    Private a1_type As String
    Private a1_reportid As String
    Private a1_revision As Integer
    Private a1_date As Date
    'cnd==========Begin==================

    'name-------------------
    Private a1_cnd_name_prefix As String
    Private a1_cnd_name_first As String
    Private a1_cnd_name_middle As String
    Private a1_cnd_name_last As String
    'id------------------------
    Private a1_cnd_id_no As String
    Private a1_cnd_id_type As Integer
    'location-----------------
    Private a1_cnd_location_addr As String
    Private a1_cnd_location_phone As String
    Private a1_cnd_location_fax As String
    'office-----------------
    Private a1_cnd_office_occ As String
    Private a1_cnd_office_desc As String
    Private a1_cnd_office_org As String
    Private a1_cnd_office_phone As String
    Private a1_cnd_office_fax As String
    'contact---------------- 
    Private a1_cnd_contact_addr As String
    Private a1_cnd_contact_phone As String
    Private a1_cnd_contact_fax As String
    'iddoc----------------
    Private a1_cnd_iddoc_type As String
    Private a1_cnd_iddoc_desc As String
    Private a1_cnd_iddoc_no As String
    Private a1_cnd_iddoc_by As String
    Private a1_cnd_iddoc_date As String
    Private a1_cnd_iddoc_expire As String

    'tsc==========Begin================== 
    Private a1_tsc_date As Date
    'contact---------------- 
    Private a1_tsc_item_type As String
    Private a1_tsc_item_desc As String
    Private a1_tsc_item_acccno As String
    Private a1_tsc_item_cur As String
    Private a1_tsc_item_amt As Double
    'name------------------- 
    Private a1_tsc_name_prefix As String
    Private a1_tsc_name_first As String
    Private a1_tsc_name_middle As String
    Private a1_tsc_name_last As String
    'obj---------------- 
    Private a1_tsc_obj_type As String
    Private a1_tsc_obj_desc As String
    'record==========Begin================== 
    Private a1_record_writer As Integer
    Private a1_record_sign As Integer
    Private a1_record_date As Date

    Public Property p01_type() As String
        Get
            Return a1_type
        End Get
        Set(ByVal value As String)
            a1_type = value
        End Set
    End Property
    Public Property p02_reportid() As String
        Get
            Return a1_reportid
        End Get
        Set(ByVal value As String)
            a1_reportid = value
        End Set
    End Property
    Public Property p03_revision() As Integer
        Get
            Return a1_revision
        End Get
        Set(ByVal value As Integer)
            a1_revision = value
        End Set
    End Property
    Public Property p04_date() As Date
        Get
            Return a1_date
        End Get
        Set(ByVal value As Date)
            a1_date = value
        End Set
    End Property
    'cnd_name-------------------
    Public Property p101_cnd_name_prefix() As String
        Get
            Return a1_cnd_name_prefix
        End Get
        Set(ByVal value As String)
            a1_cnd_name_prefix = value
        End Set
    End Property
    Public Property p102_cnd_name_first() As String
        Get
            Return a1_cnd_name_first
        End Get
        Set(ByVal value As String)
            a1_cnd_name_first = value
        End Set
    End Property
    Public Property p103_cnd_name_middle() As String
        Get
            Return a1_cnd_name_middle
        End Get
        Set(ByVal value As String)
            a1_cnd_name_middle = value
        End Set
    End Property
    Public Property p104_cnd_name_last() As String
        Get
            Return a1_cnd_name_last
        End Get
        Set(ByVal value As String)
            a1_cnd_name_last = value
        End Set
    End Property
    'cnd_id------------------------
    Public Property p105_cnd_id_no() As String
        Get
            Return a1_cnd_id_no
        End Get
        Set(ByVal value As String)
            a1_cnd_id_no = value
        End Set
    End Property
    Public Property p106_cnd_id_type() As Integer
        Get
            Return a1_cnd_id_type
        End Get
        Set(ByVal value As Integer)
            a1_cnd_id_type = value
        End Set
    End Property
    'cnd_location-----------------
    Public Property p107_cnd_location_addr() As String
        Get
            Return a1_cnd_location_addr
        End Get
        Set(ByVal value As String)
            a1_cnd_location_addr = value
        End Set
    End Property
    Public Property p108_cnd_location_phone() As String
        Get
            Return a1_cnd_location_phone
        End Get
        Set(ByVal value As String)
            a1_cnd_location_phone = value
        End Set
    End Property
    Public Property p109_cnd_location_fax() As String
        Get
            Return a1_cnd_location_fax
        End Get
        Set(ByVal value As String)
            a1_cnd_location_fax = value
        End Set
    End Property
    'cnd_office-----------------
    Public Property p110_cnd_office_occ() As String
        Get
            Return a1_cnd_office_occ
        End Get
        Set(ByVal value As String)
            a1_cnd_office_occ = value
        End Set
    End Property
    Public Property p111_cnd_office_desc() As String
        Get
            Return a1_cnd_office_desc
        End Get
        Set(ByVal value As String)
            a1_cnd_office_desc = value
        End Set
    End Property
    Public Property p112_cnd_office_org() As String
        Get
            Return a1_cnd_office_org
        End Get
        Set(ByVal value As String)
            a1_cnd_office_org = value
        End Set
    End Property
    Public Property p113_cnd_office_phone() As String
        Get
            Return a1_cnd_office_phone
        End Get
        Set(ByVal value As String)
            a1_cnd_office_phone = value
        End Set
    End Property
    Public Property p114_cnd_office_fax() As String
        Get
            Return a1_cnd_office_fax
        End Get
        Set(ByVal value As String)
            a1_cnd_office_fax = value
        End Set
    End Property
    'cnd_contact----------------  
    Public Property p115_cnd_contact_addr() As String
        Get
            Return a1_cnd_contact_addr
        End Get
        Set(ByVal value As String)
            a1_cnd_contact_addr = value
        End Set
    End Property
    Public Property p116_cnd_contact_phone() As String
        Get
            Return a1_cnd_contact_phone
        End Get
        Set(ByVal value As String)
            a1_cnd_contact_phone = value
        End Set
    End Property
    Public Property p117_cnd_contact_fax() As String
        Get
            Return a1_cnd_contact_fax
        End Get
        Set(ByVal value As String)
            a1_cnd_contact_fax = value
        End Set
    End Property
    'cnd_iddoc---------------- 
    Public Property p118_cnd_iddoc_type() As String
        Get
            Return a1_cnd_iddoc_type
        End Get
        Set(ByVal value As String)
            a1_cnd_iddoc_type = value
        End Set
    End Property
    Public Property p119_cnd_iddoc_desc() As String
        Get
            Return a1_cnd_iddoc_desc
        End Get
        Set(ByVal value As String)
            a1_cnd_iddoc_desc = value
        End Set
    End Property
    Public Property p120_cnd_iddoc_no() As String
        Get
            Return a1_cnd_iddoc_no
        End Get
        Set(ByVal value As String)
            a1_cnd_iddoc_no = value
        End Set
    End Property
    Public Property p121_cnd_iddoc_by() As String
        Get
            Return a1_cnd_iddoc_by
        End Get
        Set(ByVal value As String)
            a1_cnd_iddoc_by = value
        End Set
    End Property
    Public Property p122_cnd_iddoc_date() As String
        Get
            Return a1_cnd_iddoc_date
        End Get
        Set(ByVal value As String)
            a1_cnd_iddoc_date = value
        End Set
    End Property
    Public Property p123_cnd_iddoc_expire() As String
        Get
            Return a1_cnd_iddoc_expire
        End Get
        Set(ByVal value As String)
            a1_cnd_iddoc_expire = value
        End Set
    End Property

    'tsc==========Begin==================  
    Public Property p301_tsc_date() As Date
        Get
            Return a1_tsc_date
        End Get
        Set(ByVal value As Date)
            a1_tsc_date = value
        End Set
    End Property
    'contact----------------     
    Public Property p302_tsc_item_type() As String
        Get
            Return a1_tsc_item_type
        End Get
        Set(ByVal value As String)
            a1_tsc_item_type = value
        End Set
    End Property
    Public Property p303_tsc_item_desc() As String
        Get
            Return a1_tsc_item_desc
        End Get
        Set(ByVal value As String)
            a1_tsc_item_desc = value
        End Set
    End Property
    Public Property p304_tsc_item_acccno() As String
        Get
            Return a1_tsc_item_acccno
        End Get
        Set(ByVal value As String)
            a1_tsc_item_acccno = value
        End Set
    End Property
    Public Property p305_tsc_item_cur() As String
        Get
            Return a1_tsc_item_cur
        End Get
        Set(ByVal value As String)
            a1_tsc_item_cur = value
        End Set
    End Property
    Public Property p306_tsc_item_amt() As Double
        Get
            Return a1_tsc_item_amt
        End Get
        Set(ByVal value As Double)
            a1_tsc_item_amt = value
        End Set
    End Property
    'name-------------------        
    Public Property p307_tsc_name_prefix() As String
        Get
            Return a1_tsc_name_prefix
        End Get
        Set(ByVal value As String)
            a1_tsc_name_prefix = value
        End Set
    End Property
    Public Property p308_tsc_name_first() As String
        Get
            Return a1_tsc_name_first
        End Get
        Set(ByVal value As String)
            a1_tsc_name_first = value
        End Set
    End Property
    Public Property p309_tsc_name_middle() As String
        Get
            Return a1_tsc_name_middle
        End Get
        Set(ByVal value As String)
            a1_tsc_name_middle = value
        End Set
    End Property
    Public Property p310_tsc_name_last() As String
        Get
            Return a1_tsc_name_last
        End Get
        Set(ByVal value As String)
            a1_tsc_name_last = value
        End Set
    End Property

    'obj---------------- 
    Public Property p311_tsc_obj_type() As String
        Get
            Return a1_tsc_obj_type
        End Get
        Set(ByVal value As String)
            a1_tsc_obj_type = value
        End Set
    End Property
    Public Property p312_tsc_obj_desc() As String
        Get
            Return a1_tsc_obj_desc
        End Get
        Set(ByVal value As String)
            a1_tsc_obj_desc = value
        End Set
    End Property

    'record==========Begin==================    
    Public Property p401_record_writer() As Integer
        Get
            Return a1_record_writer
        End Get
        Set(ByVal value As Integer)
            a1_record_writer = value
        End Set
    End Property
    Public Property p402_record_sign() As Integer
        Get
            Return a1_record_sign
        End Get
        Set(ByVal value As Integer)
            a1_record_sign = value
        End Set
    End Property
    Public Property p403_record_date() As Date
        Get
            Return a1_record_date
        End Get
        Set(ByVal value As Date)
            a1_record_date = value
        End Set
    End Property

    Public Sub New()
        a1_type = ""
        a1_reportid = ""
        a1_revision = vbNull
        a1_date = vbNullString
        'cnd==========Begin==================
        'name-------------------
        a1_cnd_name_prefix = ""
        a1_cnd_name_first = ""
        a1_cnd_name_middle = ""
        a1_cnd_name_last = ""
        'id------------------------
        a1_cnd_id_no = ""
        a1_cnd_id_type = vbNull
        'location-----------------
        a1_cnd_location_addr = ""
        a1_cnd_location_phone = ""
        a1_cnd_location_fax = ""
        'office-----------------
        a1_cnd_office_occ = vbNull
        a1_cnd_office_desc = ""
        a1_cnd_office_org = ""
        a1_cnd_office_phone = ""
        a1_cnd_office_fax = ""
        'contact---------------- 
        a1_cnd_contact_addr = ""
        a1_cnd_contact_phone = ""
        a1_cnd_contact_fax = ""
        'iddoc----------------
        a1_cnd_iddoc_type = ""
        a1_cnd_iddoc_desc = ""
        a1_cnd_iddoc_no = ""
        a1_cnd_iddoc_by = ""
        a1_cnd_iddoc_date = ""
        a1_cnd_iddoc_expire = ""

        'tsc==========Begin================== 
        a1_tsc_date = vbNullString
        'contact---------------- 
        a1_tsc_item_type = ""
        a1_tsc_item_desc = ""
        a1_tsc_item_acccno = ""
        a1_tsc_item_cur = ""
        a1_tsc_item_amt = vbNull
        'name------------------- 
        a1_tsc_name_prefix = ""
        a1_tsc_name_first = ""
        a1_tsc_name_middle = ""
        a1_tsc_name_last = ""
        'obj---------------- 
        a1_tsc_obj_type = ""
        a1_tsc_obj_desc = ""
        'record==========Begin================== 
        a1_record_writer = vbNull
        a1_record_sign = vbNull
        a1_record_date = vbNullString

    End Sub

End Class
